
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvReserveDataTime
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	4/4/2549 11:06:34	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvReserveDataTime
#Region "Internal member variables"
    Private _DayId As Int32
    Private _ReserveDay As String
    Private _StartTime As String
    Private _StopTime As String
    Private _ReserveId As String
#End Region

    Public Sub New()
        _DayId = Nothing
        _ReserveDay = Nothing
        _StartTime = Nothing
        _StopTime = Nothing
        _ReserveId = Nothing
    End Sub

    Public Sub New(ByVal DayId As Int32, _
       ByVal ReserveDay As String, _
       ByVal StartTime As String, _
       ByVal StopTime As String, _
       ByVal ReserveId As String)
        _DayId = DayId
        _ReserveDay = ReserveDay
        _StartTime = StartTime
        _StopTime = StopTime
        _ReserveId = ReserveId
    End Sub

#Region "Property"

    Public Property DayId() As Int32
        Get
            Return _DayId
        End Get
        Set(ByVal value As Int32)
            _DayId = value
        End Set
    End Property


    Public Property ReserveDay() As String
        Get
            Return _ReserveDay
        End Get
        Set(ByVal value As String)
            _ReserveDay = value
        End Set
    End Property


    Public Property StartTime() As String
        Get
            Return _StartTime
        End Get
        Set(ByVal value As String)
            _StartTime = value
        End Set
    End Property


    Public Property StopTime() As String
        Get
            Return _StopTime
        End Get
        Set(ByVal value As String)
            _StopTime = value
        End Set
    End Property


    Public Property ReserveId() As String
        Get
            Return _ReserveId
        End Get
        Set(ByVal value As String)
            _ReserveId = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvReserveDataTimes
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	4/4/2549 11:06:34	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvReserveDataTimes
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvReserveDataTime
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvReserveDataTime)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvReserveDataTime)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvReserveDataTime)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
